home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SNNSV32.ZIP / SNNSv3.2 / xgui / sources / ui_infoP.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-25  |  46.5 KB  |  1,623 lines
  1. /*****************************************************************************
  2.   FILE           : ui_infoP.c
  3.   SHORTNAME      : infoP.c
  4.   SNNS VERSION   : 3.2
  5.  
  6.   PURPOSE        :
  7.   NOTES          :
  8.  
  9.   AUTHOR         : Tilman Sommer
  10.   DATE           : 1.2.1990
  11.  
  12.   CHANGED BY     :
  13.   IDENTIFICATION : @(#)ui_infoP.c    1.15 4/7/94
  14.   SCCS VERSION   : 1.15
  15.   LAST CHANGE    : 4/7/94
  16.  
  17.              Copyright (c) 1990-1994  SNNS Group, IPVR, Univ. Stuttgart, FRG
  18.              
  19. ******************************************************************************/
  20.  
  21. #include <stdio.h>
  22.  
  23. #include "ui.h"
  24. #include "ui_netGraph.h"
  25.  
  26. #include "kr_ui.h"
  27.  
  28. #include <X11/Xaw/List.h>
  29. #include "ui_utilP.h"
  30. #include "ui_xWidgets.h"
  31. #include "ui_textP.h"
  32. #include "ui_remoteP.h"
  33. #include "ui_mainP.h"
  34. #include "ui_lists.h"
  35. #include "ui_display.h"
  36. #include "ui_confirmer.h"
  37. #include "ui_netUpdate.h"
  38. #include "ui_selection.h"
  39. #include "ui_action.h"
  40. #include "ui_info.h"
  41. #include "ui_layer.h"
  42.  
  43.  
  44. #include "ui_infoP.ph"
  45.  
  46.  
  47. /*****************************************************************************
  48.   FUNCTION : ui_info_initLinkStruct
  49.  
  50.   PURPOSE  : init link attributs 
  51.   RETURNS  : void
  52.   NOTES    :
  53.  
  54.   UPDATE   : 20.9.1990
  55. ******************************************************************************/
  56.  
  57. static void ui_info_initLinkStruct(void)
  58.  
  59. {
  60.     ui_link.weight          = 0.0;
  61.     ui_link.siteValue       = 0.0;
  62.     ui_link.siteName[0]     = '\0';
  63.     ui_link.siteFuncName[0] = '\0';
  64. }
  65.  
  66.  
  67. /*****************************************************************************
  68.   FUNCTION : ui_info_initUnitStruct
  69.  
  70.   PURPOSE  : init attributs specified unit (target or source)
  71.   RERURNS  : struct UnitAttributeType  *
  72.   NOTES    :
  73.  
  74.   UPDATE   : 15.8.1990
  75. ******************************************************************************/
  76.  
  77. void ui_info_initUnitStruct(struct UnitAttributeType *unit)
  78.  
  79. {
  80.     (*unit).no       = 0;
  81.     (*unit).subnetNo = 0; /* main net */
  82.     (*unit).layers   = 1; /* first layer only */
  83.     (*unit).frozen   = FALSE;
  84.     sprintf((*unit).name, "");
  85.     sprintf((*unit).ftype, "");
  86.     sprintf((*unit).actFuncName, "");
  87.     sprintf((*unit).outFuncName, "");
  88.     (*unit).iotype   = HIDDEN;
  89.     (*unit).act      = 0.0;
  90.     (*unit).i_act    = 0.0;
  91.     (*unit).out      = 0.0;
  92.     (*unit).bias     = 0.0;
  93. }
  94.  
  95.  
  96. /*****************************************************************************
  97.   FUNCTION : ui_info_setLinkItems
  98.  
  99.   PURPOSE  : display data in the panel
  100.   RETURNS  : void
  101.   NOTES    :
  102.  
  103.   UPDATE   : 20.9.1990
  104. ******************************************************************************/
  105.  
  106. static void ui_info_setLinkItems(void)
  107.  
  108. {
  109.     char buf[20];
  110.  
  111.     sprintf(buf,"%9.5f",ui_link.weight);
  112.     ui_cutTrailingZeros(buf);
  113.     ui_xSetString(ui_linkWidgets.weight, buf);
  114.     
  115.     if (strlen(ui_link.siteName)) {
  116.     sprintf(buf,"%9.5f",ui_link.siteValue);
  117.     ui_cutTrailingZeros(buf);
  118.     ui_xSetLabel(ui_linkWidgets.siteValue, buf);
  119.     ui_xSetLabel(ui_linkWidgets.siteName, ui_link.siteName);
  120.     ui_xSetLabel(ui_linkWidgets.siteFuncName, ui_link.siteFuncName);
  121.     } else {
  122.     ui_xSetLabel(ui_linkWidgets.siteValue, "");
  123.     ui_xSetLabel(ui_linkWidgets.siteName, "");
  124.     ui_xSetLabel(ui_linkWidgets.siteFuncName, "");
  125.     }
  126. }
  127.  
  128.  
  129. /*****************************************************************************
  130.   FUNCTION : ui_info_setUnitItems
  131.  
  132.   PURPOSE  : display values in the unit-info-panel from the network data 
  133.              structure via the kernel
  134.   RETURNS  : alteration of unit-info-panel
  135.   NOTES    :
  136.  
  137.   UPDATES  :
  138. *****************************************************************************/
  139.  
  140. void ui_info_setUnitItems(struct UnitWidgetType unitWidgets, 
  141.      struct UnitAttributeType  unit)
  142.  
  143. {
  144.     char         buf[MAX_NAME_LENGTH];
  145.  
  146.     /* display unit number */
  147.     if (krui_setCurrentUnit(unit.no) != UI_SET_OK  /* error: unit not valid */)
  148.     unit.no = 0;
  149.  
  150.     if (ui_infoIsCreated) {
  151.  
  152.     ui_xSetToggleState(unitWidgets.frozen, unit.frozen);
  153.  
  154.     sprintf(buf,"%d", unit.no);
  155.     ui_xSetLabel(unitWidgets.no, buf);
  156.  
  157.     sprintf(buf,"%d", unit.subnetNo);
  158.     ui_xSetLabel(unitWidgets.subnetNo, buf);
  159.  
  160.     sprintf(buf,"%s", unit.outFuncName);
  161.     ui_xSetLabel(unitWidgets.outFuncName, buf);
  162.  
  163.     sprintf(buf,"%s", unit.actFuncName);
  164.     ui_xSetLabel(unitWidgets.actFuncName, buf);
  165.  
  166.     sprintf(buf,"%s", unit.ftype);
  167.     ui_xSetLabel(unitWidgets.ftype, buf);
  168.  
  169.     sprintf(buf,"%s", unit.name);
  170.     ui_xSetString(unitWidgets.name, buf); 
  171.  
  172.     switch (unit.iotype) {
  173.       case HIDDEN:     
  174.         ui_xSetLabel(unitWidgets.iotype, "H");
  175.         break;
  176.       case INPUT:     
  177.         ui_xSetLabel(unitWidgets.iotype, "I");
  178.         break;
  179.       case OUTPUT:     
  180.         ui_xSetLabel(unitWidgets.iotype, "O");
  181.         break;
  182.       case DUAL:     
  183.         ui_xSetLabel(unitWidgets.iotype, "D");
  184.         break;
  185.       case SPECIAL:     
  186.         ui_xSetLabel(unitWidgets.iotype, "S");
  187.         break;
  188.           case SPECIAL_I:
  189.             ui_xSetLabel(unitWidgets.iotype, "SI");
  190.             break;
  191.           case SPECIAL_O:       
  192.             ui_xSetLabel(unitWidgets.iotype, "SO");
  193.             break;
  194.           case SPECIAL_H:       
  195.             ui_xSetLabel(unitWidgets.iotype, "SH");
  196.             break;
  197.           case SPECIAL_D:       
  198.             ui_xSetLabel(unitWidgets.iotype, "SD");
  199.             break;
  200.       case UNKNOWN:     
  201.         ui_xSetLabel(unitWidgets.iotype, "-");
  202.         break;
  203.     }    
  204.  
  205.     sprintf(buf,"%8.5f", unit.act);
  206.     ui_cutTrailingZeros(buf);
  207.     ui_xSetString(unitWidgets.act, buf); 
  208.  
  209.     sprintf(buf,"%8.5f", unit.i_act);
  210.     ui_cutTrailingZeros(buf);
  211.     ui_xSetString(unitWidgets.i_act, buf); 
  212.  
  213.     sprintf(buf,"%8.5f", unit.out);
  214.     ui_cutTrailingZeros(buf);
  215.     ui_xSetString(unitWidgets.out, buf); 
  216.     
  217.     sprintf(buf,"%8.5f", unit.bias);
  218.     ui_cutTrailingZeros(buf);
  219.     ui_xSetString(unitWidgets.bias, buf);
  220.     }
  221. }
  222.  
  223.  
  224. /*****************************************************************************
  225.   FUNCTION : ui_info_getAllSiteData
  226.  
  227.   PURPOSE  : get all link data, if a current site exists
  228.   RETURNS  : void
  229.   NOTES    : a current site must exist !!!!!
  230.  
  231.   UPDATE   : 20.9.1990
  232. ******************************************************************************/
  233.  
  234. static void ui_info_getAllSiteData(void)
  235.  
  236. {
  237.     ui_link.siteValue = (FlintType) krui_getSiteValue();
  238.  
  239.     sprintf(ui_link.siteName,"%s",     krui_getSiteName());
  240.     sprintf(ui_link.siteFuncName,"%s", krui_getSiteFuncName());
  241. } 
  242.  
  243.  
  244. /*****************************************************************************
  245.   FUNCTION : ui_info_getAllUnitData
  246.  
  247.   PURPOSE  : get all unit attributes from the network structure via kernel
  248.   RETURNS  : in a parameter (unit) all attributes
  249.   NOTES    :
  250.  
  251.   UPDATES  :
  252. *****************************************************************************/
  253.  
  254. static void ui_info_getAllUnitData(int unitNo, struct UnitAttributeType *unit)
  255.  
  256. {
  257.     (*unit).no          = unitNo;
  258.     (*unit).subnetNo    = krui_getUnitSubnetNo(unitNo);
  259.     (*unit).frozen      = krui_isUnitFrozen(unitNo);
  260.     (*unit).layers      = krui_getUnitLayerNo(unitNo);
  261.     (*unit).iotype      = krui_getUnitTType(unitNo);
  262.     (*unit).act         = krui_getUnitActivation(unitNo);
  263.     (*unit).i_act       = krui_getUnitInitialActivation(unitNo);
  264.     (*unit).out         = krui_getUnitOutput(unitNo);
  265.     (*unit).bias        = krui_getUnitBias(unitNo);
  266.  
  267.     if (krui_getUnitName(unitNo) != NULL)
  268.     sprintf((*unit).name       ,"%s", krui_getUnitName(unitNo));
  269.     else
  270.     sprintf((*unit).name       ,"");
  271.     if (krui_getUnitFTypeName(unitNo) != NULL)
  272.     sprintf((*unit).ftype      ,"%s", krui_getUnitFTypeName(unitNo));
  273.     else
  274.     sprintf((*unit).ftype       ,"");
  275.     sprintf((*unit).outFuncName,"%s", krui_getUnitOutFuncName(unitNo));
  276.     sprintf((*unit).actFuncName,"%s", krui_getUnitActFuncName(unitNo));
  277.  
  278.     krui_getUnitPosition(unitNo, &(*unit).gridPos);
  279. }
  280.  
  281.  
  282. /*****************************************************************************
  283.   FUNCTION : ui_info_getDisplayedUnitAttributes 
  284.  
  285.   PURPOSE  : get the the displayed attributes: 
  286.              Name, Act, I_Act, Out and Bias
  287.   RETURNS  : void
  288.   NOTES    : 
  289.  
  290.   UPDATES  :
  291. *****************************************************************************/
  292.  
  293. void ui_info_getDisplayedUnitAttributes(struct UnitWidgetType *unitWidgets,
  294.     struct UnitAttributeType  *unit)
  295.  
  296. {
  297.     if (unitWidgets == &ui_sourceWidgets) 
  298.     *unit = ui_sourceUnit;
  299.     else
  300.     *unit = ui_targetUnit;
  301.  
  302.     if (ui_infoIsCreated) {
  303.     ui_xStringFromAsciiWidget((*unitWidgets).name, (*unit).name, 
  304.                   MAX_NAME_LENGTH);
  305.     if (((*unit).name == NULL) OR
  306.         (strlen(((*unit).name))<1))
  307.         sprintf((*unit).name,"");
  308.     else
  309.         ui_correctName((*unit).name); /* replace white space */
  310.     (*unit).act   = 
  311.         (float) ui_xFloatFromAsciiWidget((*unitWidgets).act);
  312.     (*unit).i_act = 
  313.         (float) ui_xFloatFromAsciiWidget((*unitWidgets).i_act);
  314.     (*unit).out   = 
  315.         (float) ui_xFloatFromAsciiWidget((*unitWidgets).out);
  316.     (*unit).bias  = 
  317.         (float) ui_xFloatFromAsciiWidget((*unitWidgets).bias);
  318.     }
  319. }
  320.  
  321.  
  322. /*****************************************************************************
  323.   FUNCTION : ui_info_storeAttributes
  324.  
  325.   PURPOSE  : stores all attributes from unitAttributes to unit unitNo.
  326.   RETURNS  : void
  327.   NOTES    : The unitNo is not set, because it can't be set!
  328.              The layer and the subnet number will be set as well. This must
  329.              be corrected by the caller if desired.
  330.          The GUI unit creation routine will do the following assignment:
  331.          layer    := currentLayer (only) in currentWindow
  332.          subNetNo := subNetNo of currentWindow
  333.  
  334.   UPDATES  : 
  335. *****************************************************************************/
  336.  
  337. void ui_info_storeAttributes(int unitNo, struct UnitAttributeType unit)
  338.  
  339. {
  340.     if (strlen(unit.name) OR (krui_getUnitName(unitNo) != NULL)) {
  341.     ui_checkError(krui_setUnitName(unitNo, unit.name));
  342.     }
  343.     if (strlen(unit.ftype) OR (krui_getUnitFTypeName(unitNo) != NULL)) {
  344.     ui_checkError(krui_setUnitFType(unitNo, unit.ftype));
  345.     }
  346.     if (unit.iotype == UNKNOWN)
  347.     ui_checkError(krui_setUnitTType(unitNo, HIDDEN));
  348.     else
  349.     ui_checkError(krui_setUnitTType(unitNo, unit.iotype));
  350.  
  351.     
  352.     krui_setUnitSubnetNo         (unitNo, unit.subnetNo);
  353.     krui_setUnitLayerNo          (unitNo, (int) unit.layers);
  354.     if (NOT (strcmp(unit.actFuncName, krui_getUnitActFuncName(unitNo)) == 0))
  355.     krui_setUnitActFunc      (unitNo, unit.actFuncName);
  356.     if (NOT (strcmp(unit.outFuncName, krui_getUnitOutFuncName(unitNo)) == 0))
  357.     krui_setUnitOutFunc      (unitNo, unit.outFuncName);
  358.     krui_setUnitActivation       (unitNo, unit.act);
  359.     krui_setUnitInitialActivation(unitNo, unit.i_act);
  360.     krui_setUnitOutput           (unitNo, unit.out);
  361.     krui_setUnitBias             (unitNo, unit.bias);
  362.  
  363.     if (unit.frozen)
  364.     krui_freezeUnit(unitNo);
  365.     else
  366.     krui_unfreezeUnit(unitNo);
  367. }
  368.  
  369.  
  370. /*****************************************************************************
  371.   FUNCTION : ui_info_anyUnitSelected          
  372.  
  373.   PURPOSE  : test, whether the displayed source/target unit is valid.
  374.   RETURNS  : true, if the displayed unit is ok.
  375.   NOTES    :
  376.  
  377.   UPDATES  :
  378. *****************************************************************************/
  379.  
  380. static Bool ui_info_anyUnitSelected(FlagType flag)
  381.  
  382. {
  383.     Bool  selected;
  384.     int   unitNo;
  385.     char  buf[10], buf2[50];
  386.  
  387.     if (flag == UI_SOURCE) {
  388.     sprintf(buf,"source");
  389.     unitNo = ui_sourceUnit.no;
  390.     } else {
  391.     sprintf(buf,"target");
  392.     unitNo = ui_targetUnit.no;
  393.     }
  394.     
  395.     if (NOT (selected = (krui_setCurrentUnit(unitNo) == UI_SET_OK))) {
  396.     sprintf(buf2,"No %s unit selected !",buf);
  397.     ui_printMessage(buf2);
  398.     }
  399.     return(selected);
  400. }
  401.  
  402.  
  403. /*****************************************************************************
  404.   FUNCTION : ui_info_displayList
  405.  
  406.   PURPOSE  : popup the list panel
  407.   RETURNS  : void
  408.   NOTES    : 
  409.  
  410.   UPDATES  :
  411. *****************************************************************************/
  412.  
  413. void ui_info_displayList(Widget w, struct SimpleListType *listDescriptorPtr, 
  414.     caddr_t call_data)
  415.  
  416. {
  417.     Arg        args[5];
  418.     Position    x, y;
  419.     Dimension    width, height;
  420.     Cardinal    n;
  421.  
  422.     /* Upper left corner will be in the center of the calling button */
  423.  
  424.     n = 0;
  425.     XtSetArg(args[0], XtNwidth, &width); n++;
  426.     XtSetArg(args[1], XtNheight, &height); n++;
  427.     XtGetValues(listDescriptorPtr->widgetPtr, args, n);
  428.     XtTranslateCoords(listDescriptorPtr->widgetPtr, 
  429.               (Position) (width / 2), (Position) (height / 2),
  430.               &x, &y);
  431.  
  432.     ui_listPopup(listDescriptorPtr,x,y); /* absolute screen coordinates */
  433. }
  434.  
  435.  
  436. /*****************************************************************************
  437.   FUNCTION : ui_info_setDefault
  438.  
  439.   PURPOSE  : copies the value in ui_defUnit and sets kernel defaults
  440.   RETURNS  : void
  441.   NOTES    :
  442.  
  443.   UPDATE   : 27.9.90
  444. ******************************************************************************/
  445.  
  446. void ui_info_setDefault(Widget w, int structure, caddr_t call_data)
  447.  
  448. {
  449.     struct UnitAttributeType  unit;
  450.  
  451.     if (structure == UI_SOURCE) 
  452.     ui_info_getDisplayedUnitAttributes(&ui_sourceWidgets, &ui_defUnit);
  453.     else 
  454.     ui_info_getDisplayedUnitAttributes(&ui_targetWidgets, &ui_defUnit);
  455.     
  456. /* Old, wrong version :
  457.     switch (structure) {
  458.       case UI_SOURCE: 
  459.     ui_defUnit = ui_sourceUnit;
  460.     break;
  461.       case UI_TARGET: 
  462.     ui_defUnit = ui_targetUnit;
  463.     break;
  464.     }
  465. */
  466.     ui_checkError(krui_setUnitDefaults(ui_defUnit.act, ui_defUnit.bias,
  467.                        ui_defUnit.iotype, ui_defUnit.subnetNo, 
  468.                        ui_defUnit.layers, 
  469.                        ui_defUnit.actFuncName, 
  470.                        ui_defUnit.outFuncName));
  471. }
  472.  
  473.  
  474. /*****************************************************************************
  475.   FUNCTION : ui_info_freezeUnit
  476.  
  477.   PURPOSE  : toggles the value frozen in the specified unit-structure
  478.   RETURNS  : void
  479.   NOTES    :
  480.  
  481.   UPDATE   : 26.8.1990
  482. ******************************************************************************/
  483.  
  484. void ui_info_freezeUnit(Widget w, int structure, caddr_t call_data)
  485.  
  486. {
  487.     switch (structure) {
  488.       case UI_SOURCE: 
  489.     ui_sourceUnit.frozen = NOT ui_sourceUnit.frozen;
  490.     break;
  491.       case UI_TARGET: 
  492.     ui_targetUnit.frozen = NOT ui_targetUnit.frozen;
  493.     break;
  494.     }
  495. }
  496.  
  497.  
  498. /*****************************************************************************
  499.   FUNCTION : ui_info_assignLayer
  500.  
  501.   PURPOSE  : popup the layer assignment window.
  502.   RETURNS  : void
  503.   NOTES    : 
  504.  
  505.   UPDATES  :
  506. *****************************************************************************/
  507.  
  508. void ui_info_assignLayer(Widget w, struct InfoCallLayerStruct *callLayerPtr, 
  509.     caddr_t call_data)
  510.  
  511. {
  512.     struct UnitAttributeType  *unitPtr;
  513.     Arg        args[5];
  514.     Position    x, y;
  515.     Dimension    width, height;
  516.     Cardinal    n;
  517.  
  518.     /* Upper left corner will be in the center of the calling button */
  519.  
  520.     n = 0;
  521.     XtSetArg(args[0], XtNwidth, &width); n++;
  522.     XtSetArg(args[1], XtNheight, &height); n++;
  523.     XtGetValues(callLayerPtr->widget, args, n);
  524.     XtTranslateCoords(callLayerPtr->widget, 
  525.               (Position) (width / 2), (Position) (height / 2),
  526.               &x, &y);
  527.  
  528.     if (callLayerPtr->unitType == UI_TARGET)
  529.     unitPtr = &ui_targetUnit;
  530.     else
  531.     unitPtr = &ui_sourceUnit;
  532.  
  533.     /* set start value for the buttons */
  534.     ui_layerStartValue = unitPtr->layers;
  535.     ui_displayLayerPanel(x,y); /* absolute screen coordinates */
  536.     /* assign return value */
  537.     unitPtr->layers = ui_layerReturnValue;
  538.     ui_sel_checkList(ui_currentDisplay, UI_GLOBAL);
  539. }
  540.  
  541.  
  542. #ifdef _UNUSED_FUNCTIONS_
  543.  
  544. /*****************************************************************************
  545.   FUNCTION : ui_info_deleteSite
  546.  
  547.   PURPOSE  : popup the list panel and delete the selected site
  548.   RETURNS  : void
  549.   NOTES    : 
  550.  
  551.   UPDATES  :
  552. *****************************************************************************/
  553.  
  554. static void ui_info_deleteSite(Widget w, 
  555.     struct SimpleListType *listDescriptorPtr, caddr_t call_data)
  556.  
  557. {
  558.     /* do some checks */
  559.     if (NOT ui_info_anyUnitSelected(UI_TARGET)) 
  560.     return;
  561.     if (krui_getUnitInputType(listDescriptorPtr->unitPtr->no) != SITES)
  562.     return;
  563.  
  564.     ui_info_displayList(w, listDescriptorPtr, call_data);
  565.  
  566.     /* the list appears */
  567.     /* now consider the return value */
  568.     if (ui_list_returnIndex == XAW_LIST_NONE)
  569.     return; /* DONE pressed without selection */
  570.     
  571.     if (krui_setSite(ui_list_returnName) != UI_SET_OK) {
  572.     ui_confirmOk("This site does not exist on the target unit!");
  573.     return;
  574.     }
  575.     
  576.     (void) krui_deleteSite();
  577. }
  578.  
  579. #endif /* _UNUSED_FUNCTIONS_ */
  580.  
  581.  
  582. /*****************************************************************************
  583.   FUNCTION : ui_info_unitUpdateProc
  584.  
  585.   PURPOSE  : forces the kernal to update unit-data
  586.   RETURNS  : alteration of the network
  587.   NOTES    :
  588.  
  589.   UPDATES  :
  590. *****************************************************************************/
  591.  
  592. void ui_info_unitUpdateProc(Widget w, FlagType flag, caddr_t call_data)
  593.  
  594. {
  595.     struct UnitAttributeType  unit;
  596.     char       buf[UI_MAX_TW_BUFFER_SIZE];
  597.  
  598.     if (ui_info_anyUnitSelected(flag)) {
  599.     ui_sel_reshowItems(ui_currentDisplay, UI_GLOBAL);
  600.     if (flag == UI_SOURCE) 
  601.         unit = ui_sourceUnit;
  602.     else 
  603.         unit = ui_targetUnit;
  604.     ui_net_drawUnit(ui_currentDisplay, UI_GLOBAL,
  605.             unit.no, UI_ERASE);
  606.     if (flag == UI_SOURCE) 
  607.         ui_info_getDisplayedUnitAttributes(&ui_sourceWidgets, &unit);
  608.     else 
  609.         ui_info_getDisplayedUnitAttributes(&ui_targetWidgets, &unit);
  610.  
  611.     ui_info_storeAttributes(unit.no, unit);
  612.     
  613.     /* output messages and graphic */
  614.     
  615.     ui_tw_printMessage("SET unit: "); 
  616.     sprintf(buf,"%d %s [st: %s, ft: %s]\n  act: %8.5f   iact: %8.5f\n  out: %8.5f   bias: %8.5f\n",
  617.         unit.no, unit.name, ui_utilGetIOTypeName(unit.iotype), 
  618.         unit.ftype, unit.act, unit.i_act, unit.out, unit.bias); 
  619.     ui_tw_printMessage(buf); 
  620.     sprintf(buf,"  act-func: %s\n  out-func: %s\n\n", 
  621.         unit.actFuncName, unit.outFuncName);
  622.     ui_tw_printMessage(buf); 
  623.  
  624.     ui_net_drawUnit(ui_currentDisplay, UI_GLOBAL, unit.no, UI_DRAW);
  625.     ui_rem_resetCounter();
  626.     ui_sel_reshowItems(ui_currentDisplay, UI_GLOBAL);
  627.     } else {
  628.     if (flag == UI_SOURCE) {
  629.         unit = ui_sourceUnit;
  630.         ui_info_getDisplayedUnitAttributes(&ui_sourceWidgets, &unit);
  631.     } else {
  632.         unit = ui_targetUnit;
  633.         ui_info_getDisplayedUnitAttributes(&ui_targetWidgets, &unit);
  634.     }
  635.     }
  636. }
  637.  
  638.  
  639. /*****************************************************************************
  640.   FUNCTION : ui_info_linkUpdateProc
  641.  
  642.   PURPOSE  : forces the kernal to update the connection weight of the dis-
  643.              played link.
  644.   RETURNS  : alteration of the network
  645.   NOTES    :
  646.  
  647.   UPDATES  :
  648. *****************************************************************************/
  649.  
  650. void ui_info_linkUpdateProc(Widget w, XtPointer button, caddr_t call_data)
  651.  
  652. {  
  653.     char                buf[UI_MAX_TW_BUFFER_SIZE];
  654.  
  655.     if (NOT ui_info_anyUnitSelected(UI_SOURCE)) return;
  656.  
  657.     if (krui_setCurrentUnit(ui_targetUnit.no) != UI_SET_OK) {
  658.     ui_confirmOk("Can't update link. Invalid target!");
  659.     return;
  660.     }
  661.     if (ui_sourceUnit.no == 0) {
  662.     ui_confirmOk("Can't update link. Invalid source!");
  663.     return;
  664.     }
  665.     if (strlen(ui_link.siteName) > 0) { /* the displayed link was on a site */
  666.     if (krui_setSite(ui_link.siteName) != UI_SET_OK) {
  667.         ui_confirmOk("Can't update link. Invalid site!");
  668.         return;
  669.     }
  670.     } else {
  671.     if (krui_getUnitInputType(ui_targetUnit.no) == SITES) {
  672.         /* no site specified => DIRECT_LINK */
  673.         /* But a unit can't have sites AND direct links ! */
  674.         ui_confirmOk("Can't update link. Invalid site name!");
  675.         return;
  676.     }    
  677.     }    
  678.  
  679.     if (NOT krui_isConnected(ui_sourceUnit.no)) {
  680.     /* no connection from source to current site of target */
  681.     ui_confirmOk("Can't update link. No connection exists.");
  682.     return;
  683.     }
  684.  
  685.     /* all checks positive */
  686.  
  687.     ui_link.weight = krui_getLinkWeight();
  688.     ui_net_drawLink(ui_currentDisplay, UI_GLOBAL,
  689.             ui_sourceUnit.no, ui_targetUnit.no, 
  690.             ui_link.weight, UI_ERASE);
  691.     
  692.     /* set weight */
  693.     krui_setLinkWeight(ui_link.weight = (FlintType)
  694.                ui_xFloatFromAsciiWidget(ui_linkWidgets.weight)); 
  695.     
  696.     /* show messages */
  697.     
  698.     ui_printMessage("update link done.");
  699.     if (krui_getUnitInputType(ui_targetUnit.no) == SITES)
  700.     sprintf(buf,"SET link weight  : %d -> %d : %.8f   *** to site\n\n",
  701.         ui_sourceUnit.no, ui_targetUnit.no, ui_link.weight);
  702.     else
  703.     sprintf(buf,"SET link weight  : %d -> %d : %.8f   *** direct\n\n",
  704.         ui_sourceUnit.no, ui_targetUnit.no, ui_link.weight);
  705.  
  706.     ui_tw_printMessage(buf); 
  707.     
  708.     ui_net_drawLink(ui_currentDisplay, UI_GLOBAL,
  709.             ui_sourceUnit.no, ui_targetUnit.no, 
  710.             ui_link.weight, UI_DRAW);
  711. }
  712.  
  713.  
  714. /*****************************************************************************
  715.   FUNCTION : ui_info_showSuccOfSourceUnit
  716.  
  717.   PURPOSE  : Display the successor at succPosition in the row TARGET and show
  718.              the weight of the assigned link
  719.   RETURNS  : alteration of unit-info-panel
  720.   NOTES    : If no unit is found at succPosition, this routine shows dummy
  721.              values. Give a position with at least one coordinate set as
  722.          0 to show, that a source unit has now successors.
  723.  
  724.   UPDATES  :
  725. *****************************************************************************/
  726.  
  727. static void ui_info_showSuccOfSourceUnit(int succNo, FlintType weight)
  728.  
  729. {
  730.     ui_info_initLinkStruct();
  731.  
  732.     if ((NOT ui_info_anyUnitSelected(UI_SOURCE)) OR
  733.     ((ui_targetUnit.no = succNo) == 0)) {
  734.     /* show dummy values */
  735.     ui_info_initUnitStruct(&ui_targetUnit);    
  736.     } else {    
  737.     /* SOURCE exists, get values of target with succNo */
  738.     ui_info_getAllUnitData(ui_targetUnit.no, &ui_targetUnit);
  739.     if (krui_getUnitInputType(ui_targetUnit.no) == SITES)
  740.         ui_info_getAllSiteData(); 
  741.     ui_link.weight = weight;
  742.     }
  743.     ui_info_setLinkItems();
  744.     ui_info_setUnitItems(ui_targetWidgets, ui_targetUnit);
  745. }
  746.  
  747.  
  748. /*****************************************************************************
  749.   FUNCTION : ui_info_showPredOfTargetUnit
  750.  
  751.   PURPOSE  : Display the predecessor witgh  predNo in the row SOURCE and show
  752.              the data of this link
  753.   RETURNS  : alteration of unit-info-panel
  754.   NOTES    : If no unit is found with predNo, this routine shows dummy
  755.              values. predNo == 0 means, that no predecessor exists. 
  756.  
  757.   UPDATES  :
  758. *****************************************************************************/
  759.  
  760. void ui_info_showPredOfTargetUnit(int predNo, FlintType weight)
  761.  
  762. {
  763.     if ((NOT ui_info_anyUnitSelected(UI_TARGET)) OR
  764.     ((ui_sourceUnit.no = predNo) == 0)) {
  765.     /* show dummy values */
  766.     ui_info_initUnitStruct(&ui_sourceUnit);
  767.     } else {    
  768.     /* get values */
  769.     ui_info_getAllUnitData(predNo, &ui_sourceUnit);
  770.     ui_link.weight = weight;
  771.     }
  772.     ui_info_setLinkItems();
  773.     ui_info_setUnitItems(ui_sourceWidgets, ui_sourceUnit);
  774. }
  775.  
  776.  
  777. /*****************************************************************************
  778.   FUNCTION : ui_info_showFirstSuccOfSourceUnit
  779.  
  780.   PURPOSE  : search the first successor of the current source unit and display
  781.              the values in the TARGET row.
  782.   RETURNS  : alteration of unit-info-panel
  783.   NOTES    : 
  784.  
  785.   UPDATES  :
  786. *****************************************************************************/
  787.  
  788. void ui_info_showFirstSuccOfSourceUnit(Widget w, XtPointer button, 
  789.     caddr_t call_data)
  790.  
  791. {
  792.     FlintType  weight = 0.0;
  793.  
  794.     ui_targetUnit.no  = 0;
  795.  
  796.     ui_info_initLinkStruct();
  797.  
  798.     if (ui_info_anyUnitSelected(UI_SOURCE)) {
  799.     ui_targetUnit.no = 
  800.         krui_getFirstSuccUnit(ui_sourceUnit.no, &weight);
  801.     if ((ui_targetUnit.no != 0) AND 
  802.         (krui_getUnitInputType(ui_targetUnit.no) == SITES)) {
  803.         /* it is shure, there is a current site */
  804.         ui_info_getAllSiteData();
  805.     }
  806.     }                  
  807.     ui_info_showSuccOfSourceUnit(ui_targetUnit.no, (FlintType) weight);
  808. }
  809.  
  810.  
  811. /*****************************************************************************
  812.   FUNCTION : ui_info_showNextSuccOfSourceUnit
  813.  
  814.   PURPOSE  : search the next successor of the current source unit and display
  815.              the values in the TARGET row.
  816.   RETURNS  : alteration of unit-info-panel
  817.   NOTES    : 
  818.  
  819.   UPDATES  :
  820. *****************************************************************************/
  821.  
  822. void ui_info_showNextSuccOfSourceUnit(Widget w, XtPointer button, 
  823.     caddr_t call_data)
  824.  
  825. {
  826.     FlintType  weight = 0.0;
  827.     int        unitNo;
  828.  
  829.     ui_info_initLinkStruct();
  830.  
  831.     if (ui_info_anyUnitSelected(UI_SOURCE)) {
  832.     if (ui_info_anyUnitSelected(UI_TARGET)) {
  833.         if (krui_isConnected(ui_sourceUnit.no)) {
  834.         (void) krui_setCurrentUnit(ui_sourceUnit.no);
  835.         if ((unitNo = krui_getNextSuccUnit(&weight)) > 0)
  836.             ui_targetUnit.no = unitNo;
  837.         if (krui_getUnitInputType(ui_targetUnit.no) == SITES) {
  838.             /* it is shure, there is a current site */
  839.             ui_info_getAllSiteData();
  840.         }
  841.         ui_info_showSuccOfSourceUnit(ui_targetUnit.no, weight);
  842.         } else 
  843.         ui_info_showFirstSuccOfSourceUnit(NULL, NULL, NULL);
  844.     }
  845.     }
  846. }
  847.  
  848.  
  849. /*****************************************************************************
  850.   FUNCTION : ui_info_showFirstPredOfTargetUnit
  851.  
  852.   PURPOSE  : search the first predecessor of the current target unit and 
  853.              display the values in the SOURCE row.
  854.   RETURNS  : alteration of unit-info-panel
  855.   NOTES    : 
  856.  
  857.   UPDATES  :
  858. *****************************************************************************/
  859.  
  860. void ui_info_showFirstPredOfTargetUnit(Widget w, XtPointer button, 
  861.     caddr_t call_data)
  862.  
  863. {
  864.     FlintType    weight = 0.0;
  865.  
  866.     ui_sourceUnit.no = 0;
  867.  
  868.     if (ui_info_anyUnitSelected(UI_TARGET)) {
  869.     (void) krui_setCurrentUnit(ui_targetUnit.no);
  870.     if (ui_krui_setCurrentSite(ui_targetUnit.no, ui_link.siteName)) { 
  871.         if (krui_getUnitInputType(ui_targetUnit.no) == SITES)
  872.         ui_info_getAllSiteData();
  873.         else
  874.         ui_info_initLinkStruct();
  875.     }    
  876.     ui_sourceUnit.no = krui_getFirstPredUnit(&weight);
  877.     }    
  878.     ui_info_showPredOfTargetUnit(ui_sourceUnit.no, weight);
  879. }
  880.  
  881.  
  882. /*****************************************************************************
  883.   FUNCTION : ui_info_showNextPredOfTargetUnit
  884.  
  885.   PURPOSE  : search the next predecessor of the current target unit and 
  886.              display the values in the SOURCE row.
  887.   RETURNS  : alteration of unit-info-panel
  888.   NOTES    : 
  889.  
  890.   UPDATES  :
  891. *****************************************************************************/
  892.  
  893. void ui_info_showNextPredOfTargetUnit(Widget w, XtPointer button, 
  894.     caddr_t call_data)
  895.  
  896. {
  897.     FlintType   weight = 0.0;
  898.     int         unitNo;
  899.  
  900.     if (NOT ui_info_anyUnitSelected(UI_TARGET)) 
  901.     return;
  902.  
  903.     if (krui_getUnitInputType(ui_targetUnit.no) == SITES) {
  904.     if (strlen(ui_link.siteName)) {
  905.         if (krui_setSite(ui_link.siteName) != UI_SET_OK) { 
  906.         if (krui_setFirstSite())
  907.             ui_info_getAllSiteData();
  908.         } else /* this site exist: get all site data */
  909.         ui_info_getAllSiteData();
  910.     } else { /* invalid site name */
  911.         if (krui_setFirstSite())
  912.         ui_info_getAllSiteData();
  913.     }
  914.     } else /* unit with direct links */
  915.     ui_info_initLinkStruct();
  916.     
  917.     if (krui_isConnected(ui_sourceUnit.no)) {
  918.     /* Now, all CURRENT pointers in the kernel are set correctly */
  919.     if ((unitNo = krui_getNextPredUnit(&weight)) > 0) {
  920.         ui_sourceUnit.no = unitNo;
  921.     }
  922.     ui_info_showPredOfTargetUnit(ui_sourceUnit.no, weight);
  923.     } else { /* not connected => illegal operation */
  924.     ui_confirmOk("Invalid source: not connected with target!");
  925.     }
  926. }
  927.  
  928.  
  929. /*****************************************************************************
  930.   FUNCTION : ui_info_showFirstSiteOfTargetUnit
  931.  
  932.   PURPOSE  : display the next site and the first predecessor on it
  933.   RETURNS  : alteration of unit-info-panel
  934.   NOTES    : 
  935.  
  936.   UPDATES  :
  937. *****************************************************************************/
  938.  
  939. void ui_info_showFirstSiteOfTargetUnit(Widget w, caddr_t lient_data,  
  940.     caddr_t  call_data)
  941.  
  942. {
  943.     ui_info_initLinkStruct();
  944.  
  945.     if (NOT ui_info_anyUnitSelected(UI_TARGET)) {
  946.     ui_confirmOk("Invalid target!");
  947.     return;
  948.     }
  949.  
  950.     if (krui_getUnitInputType(ui_targetUnit.no) != SITES) {
  951.     ui_info_showFirstPredOfTargetUnit(NULL, NULL, NULL);
  952.     return;
  953.     }
  954.  
  955.     if (krui_setFirstSite()) {
  956.     ui_info_getAllSiteData();
  957.     ui_info_showFirstPredOfTargetUnit(NULL, NULL, NULL);
  958.     } /* else is impossible !! */
  959. }
  960.  
  961.  
  962. /*****************************************************************************
  963.   FUNCTION : ui_info_showNextSiteOfTargetUnit
  964.  
  965.   PURPOSE  : display the next site and the first predecessor on it
  966.   RETURNS  : alteration of unit-info-panel
  967.   NOTES    : 
  968.  
  969.   UPDATES  :
  970. *****************************************************************************/
  971.  
  972. void ui_info_showNextSiteOfTargetUnit(Widget w, caddr_t client_data, 
  973.     caddr_t call_data)
  974.  
  975. {
  976.     if (NOT ui_info_anyUnitSelected(UI_TARGET)) {
  977.     ui_confirmOk("Invalid target!");
  978.     return;
  979.     }
  980.  
  981.     if (krui_getUnitInputType(ui_targetUnit.no) != SITES) 
  982.     return;
  983.  
  984.     if (strlen(ui_link.siteName)) {
  985.     if (krui_setSite(ui_link.siteName) != UI_SET_OK) {
  986.         krui_setFirstSite();
  987.         ui_info_getAllSiteData();
  988.         ui_info_showFirstPredOfTargetUnit(NULL, NULL, NULL);
  989.     } else {
  990.         if (krui_setNextSite()) {
  991.         ui_info_getAllSiteData();
  992.         ui_info_showFirstPredOfTargetUnit(NULL, NULL, NULL);
  993.         }
  994.         /* else (= no more sites) leave the panel unchanged */
  995.     }
  996.     } else { /* invalid site in ui_link.siteName */
  997.     krui_setFirstSite();
  998.     ui_info_getAllSiteData();
  999.     ui_info_showFirstPredOfTargetUnit(NULL, NULL, NULL);
  1000.     }
  1001. }
  1002.  
  1003.  
  1004. /*****************************************************************************
  1005.   FUNCTION : ui_info_showSelectedUnit
  1006.  
  1007.   PURPOSE  : search and display as source unit the unit at the given position.
  1008.              Because this routine is called caused by an event in a graphik
  1009.          window, the calling argument is a position (raster).
  1010.   RETURNS  : alteration of unit-info-panel
  1011.   NOTES    : if no unit at this position will be found, this routine will
  1012.              display dummy values. 
  1013.  
  1014.   UPDATES  :
  1015. *****************************************************************************/
  1016.  
  1017. void ui_info_showSelectedUnit(int unitNo)
  1018.  
  1019. {
  1020.     if (krui_setCurrentUnit(unitNo) == UI_SET_OK) { /* show values */
  1021.     ui_targetUnit.no = unitNo;
  1022.     ui_info_getAllUnitData(ui_targetUnit.no, &ui_targetUnit);
  1023.     } else { /* show dummy values */
  1024.     ui_targetUnit.no = 0;
  1025.     ui_printMessage("No target unit selected !");
  1026.     ui_info_initUnitStruct(&ui_targetUnit);
  1027.     }
  1028.     ui_info_setUnitItems(ui_targetWidgets, ui_targetUnit);
  1029.     ui_info_showFirstSiteOfTargetUnit(NULL, NULL, NULL);
  1030. }
  1031.  
  1032.  
  1033. /*****************************************************************************
  1034.   FUNCTION : ui_info_showFirstUnit
  1035.  
  1036.   PURPOSE  : search and display the first unit found by the kernal in his
  1037.              data structure.
  1038.   RETURNS  : alteration of unit-info-panel
  1039.   NOTES    : if no unit at this position will be found, this routine will
  1040.              display dummy values. 
  1041.  
  1042.   UPDATES  :
  1043. *****************************************************************************/
  1044.  
  1045. static void ui_info_showFirstUnit(void)
  1046.  
  1047. {
  1048.     ui_targetUnit.no = 0;
  1049.  
  1050.     if ((ui_targetUnit.no = krui_getFirstUnit()) <= 0) {
  1051.     /* no unit available */
  1052.     ui_info_initLinkStruct();
  1053.     ui_info_showFirstPredOfTargetUnit(NULL, NULL, NULL);    
  1054.     ui_printMessage("The network is empty!");
  1055.     }
  1056.     ui_info_showSelectedUnit(ui_targetUnit.no);
  1057. }
  1058.  
  1059.  
  1060. #ifdef _UNUSED_FUNCTIONS_
  1061.  
  1062. /*****************************************************************************
  1063.   FUNCTION : ui_info_makeTargetToSourceUnit
  1064.  
  1065.   PURPOSE  : The current target unit will become the source unit. The TARGET 
  1066.              row will show the first successor of TARGET (if any).
  1067.   RETURNS  : alteration of unit-info-panel
  1068.   NOTES    : if target is invalid, the confirmer will give a message stating
  1069.          this.
  1070.              !!! function is not used yet
  1071.  
  1072.   UPDATES  :
  1073. *****************************************************************************/
  1074.  
  1075. /*!*/ /* not used */
  1076. static void ui_info_makeTargetToSourceUnit(void)
  1077.  
  1078. {
  1079.     if (krui_setCurrentUnit(ui_targetUnit.no) == UI_SET_OK)
  1080.     ui_info_showSelectedUnit(ui_targetUnit.no);
  1081.     else
  1082.     ui_printMessage("Can't make target current source!");
  1083. }
  1084.  
  1085. #endif /* _UNUSED_FUNCTIONS_ */
  1086.  
  1087.  
  1088. #ifdef _UNUSED_FUNCTIONS_ 
  1089.  
  1090. /*****************************************************************************
  1091.   FUNCTION : ui_info_makeSourceToTargetUnit
  1092.  
  1093.   PURPOSE  : The current source unit will become the target unit. The SOURCE 
  1094.              row will show the first predecessor of SOURCE (if any).
  1095.   RETURNS  : alteration of unit-info-panel
  1096.   NOTES    : if source is invalid, the confirmer will give a message stating
  1097.            : this.
  1098.              !!! function is not used yet
  1099.  
  1100.   UPDATES  :
  1101. *****************************************************************************/
  1102.  
  1103. /*!*/ /* not used */
  1104. static void ui_info_makeSourceToTargetUnit(void)
  1105.  
  1106. {
  1107.     if (krui_setCurrentUnit(ui_sourceUnit.no) == UI_SET_OK)
  1108.     ui_info_showSelectedUnit(ui_sourceUnit.no);
  1109.     else
  1110.     ui_printMessage("Can't make source current target!");
  1111. }
  1112.  
  1113. #endif /* _UNUSED_FUNCTIONS_ */
  1114.  
  1115.  
  1116. #ifdef _UNUSED_FUNCTIONS_
  1117.  
  1118. /*****************************************************************************
  1119.   FUNCTION : ui_info_listAllUnits
  1120.  
  1121.   PURPOSE  : list all units with all attributes in the text window
  1122.   RETURNS  : alteration of the text window
  1123.   NOTES    : !!! function is not used yet
  1124.  
  1125.   UPDATES  :
  1126. *****************************************************************************/
  1127.  
  1128. /*!*/ /* not used */
  1129. static void ui_info_listAllUnits(Widget w, XtPointer button, caddr_t call_data)
  1130.  
  1131. {
  1132.     int                       unitNo;
  1133.     struct UnitAttributeType  unit;
  1134.  
  1135.     char                buf[UI_MAX_TW_BUFFER_SIZE];
  1136.     Bool                successful;
  1137.  
  1138.     successful = ((unitNo = krui_getFirstUnit()) > 0);
  1139.  
  1140.     if (NOT successful) 
  1141.     ui_printMessage("The Network is empty!");
  1142.     else {
  1143.     ui_printMessage("Listing all units ...");
  1144.     /* ui_displayText_proc(); */
  1145.     ui_tw_printMessage("\n\nlisting of all units:\n");
  1146.     ui_tw_printMessage("format: NUMBER NAME [FTYPE] ACTIVATION (OUTPUT):BIAS\n");
  1147.          
  1148.     while (successful) {
  1149.         
  1150.         ui_info_getAllUnitData(unitNo, &unit);
  1151.         
  1152.         sprintf(buf,"   %6d %s [%s] %8.5f (%8.5f):%8.5f\n", unit.no, unit.name, 
  1153.             unit.ftype, unit.act, unit.out, unit.bias);
  1154.         ui_tw_printMessage(buf); 
  1155.         
  1156.         successful = ((unitNo = krui_getNextUnit()) > 0);
  1157.     }
  1158.  
  1159.     ui_tw_printMessage("\n\nend of listing\n\n\n");
  1160.     ui_printMessage("");
  1161.     }
  1162. }
  1163.  
  1164. #endif /* _UNUSED_FUNTIONS_ */
  1165.  
  1166.  
  1167. /*****************************************************************************
  1168.   FUNCTION : ui_info_listAllTargetUnits
  1169.  
  1170.   PURPOSE  : list all successors of the current SOURCE in the text window
  1171.   RETURNS  : alteration of the text window
  1172.   NOTES    :
  1173.  
  1174.   UPDATES  :
  1175. *****************************************************************************/
  1176.  
  1177. void ui_info_listAllTargetUnits(Widget w, int unitType, caddr_t call_data)
  1178.  
  1179. {
  1180.     int                       tarNo, sourceNo;
  1181.     struct UnitAttributeType  targetUnit;
  1182.     FlintType                 weight; 
  1183.     char      *name;
  1184.     char      buf[UI_MAX_TW_BUFFER_SIZE];
  1185.     Bool      successful;
  1186.  
  1187.     if (NOT ui_info_anyUnitSelected(unitType)) 
  1188.     return;
  1189.  
  1190.     if (unitType == UI_SOURCE) {
  1191.     sourceNo = ui_sourceUnit.no;
  1192.     name     = ui_sourceUnit.name;
  1193.     } else {
  1194.     sourceNo = ui_targetUnit.no;
  1195.     name     = ui_targetUnit.name;
  1196.     }
  1197.  
  1198.     if (NOT (successful = 
  1199.          ((tarNo = krui_getFirstSuccUnit(sourceNo, &weight)) > 0))) {
  1200.     ui_printMessage("This unit has no successors!");
  1201.     return;
  1202.     }
  1203.  
  1204.     ui_printMessage("Listing all successors ...");
  1205.     /* ui_displayText_proc(); */
  1206.     sprintf(buf,"\n\nListing of all successors of unit %d - %s\n\n", sourceNo,name);
  1207.     ui_tw_printMessage(buf);
  1208.     ui_tw_printMessage("  weight    -> number - name                 output    activat.  bias\n");
  1209.     ui_tw_printMessage("---------------------------------------------------------------------------\n");
  1210.     while (successful) {
  1211.     ui_info_getAllUnitData(tarNo, &targetUnit);
  1212.     
  1213.     sprintf(buf,"  %9.5f -> %6d - %-20s %8.5f  %8.5f  %9.5f\n", 
  1214.         weight, targetUnit.no, targetUnit.name, targetUnit.out, 
  1215.         targetUnit.act, targetUnit.bias);
  1216.     ui_tw_printMessage(buf);
  1217.     
  1218.     ui_krui_setCurrentLink(sourceNo, tarNo, "");
  1219.     (void) krui_setCurrentUnit(sourceNo);
  1220.     successful = ((tarNo = krui_getNextSuccUnit(&weight)) > 0);
  1221.     }
  1222.     ui_tw_printMessage("\n\nend of listing\n\n\n");
  1223.     ui_printMessage("");
  1224. }
  1225.  
  1226.  
  1227. /*****************************************************************************
  1228.   FUNCTION : ui_info_listAllSourceUnits
  1229.  
  1230.   PURPOSE  : list all predecessors of the current TARGET in the text window
  1231.   RETURNS  : alteration of the text window
  1232.   NOTES    :
  1233.  
  1234.   UPDATES  :
  1235. *****************************************************************************/
  1236.  
  1237. void ui_info_listAllSourceUnits(Widget w, int unitType, caddr_t call_data)
  1238.  
  1239. {
  1240.     int                       targetNo, srcNo;
  1241.     struct UnitAttributeType  sourceUnit;
  1242.     FlintType                 weight; 
  1243.     char      *name;
  1244.     char      buf[UI_MAX_TW_BUFFER_SIZE];
  1245.     Bool      successful;
  1246.     Bool      siteIsActive;
  1247.  
  1248.     if (NOT ui_info_anyUnitSelected(unitType)) 
  1249.     return;
  1250.  
  1251.     if (unitType == UI_SOURCE) {
  1252.     targetNo = ui_sourceUnit.no;
  1253.     name     = ui_sourceUnit.name;
  1254.     } else {
  1255.     targetNo = ui_targetUnit.no;
  1256.     name     = ui_targetUnit.name;
  1257.     }
  1258.    
  1259.     (void) krui_setCurrentUnit(targetNo);
  1260.     
  1261.     ui_printMessage("Listing of all predecessors ...");
  1262.     /* ui_displayText_proc(); */
  1263.     sprintf(buf,"\n\nListing of all predecessors of unit %d - %s\n\n", targetNo, name);
  1264.     ui_tw_printMessage(buf);
  1265.     ui_tw_printMessage("  weight    <- number - name                 output    activat.  bias\n");
  1266.     ui_tw_printMessage("---------------------------------------------------------------------------\n");
  1267.  
  1268.     siteIsActive = krui_setFirstSite();
  1269.  
  1270.     do { /* loop over all sites */ 
  1271.     if (siteIsActive) {
  1272.         sprintf(buf,"\nsite: %-20s  (func: %-20s)  value: %9.5f\n",
  1273.             krui_getSiteName(), krui_getSiteFuncName(), 
  1274.             krui_getSiteValue());
  1275.         ui_tw_printMessage(buf);
  1276.     }
  1277.     successful = 
  1278.         ((srcNo = krui_getFirstPredUnit(&weight)) > 0);
  1279.     
  1280.     while (successful) {
  1281.         ui_info_getAllUnitData(srcNo, &sourceUnit);
  1282.         
  1283.         sprintf(buf,"  %9.5f <- %6d - %-20s %8.5f  %8.5f  %9.5f\n", 
  1284.             weight, srcNo, sourceUnit.name, sourceUnit.out, 
  1285.             sourceUnit.act, sourceUnit.bias);
  1286.         ui_tw_printMessage(buf);
  1287.         
  1288.         successful = ((srcNo = krui_getNextPredUnit(&weight)) > 0);
  1289.     } /* end while */
  1290.  
  1291.     } while ((siteIsActive = krui_setNextSite()));
  1292.  
  1293.     ui_tw_printMessage("\n\nend of listing\n\n\n");
  1294.     ui_printMessage("");
  1295. }
  1296.  
  1297.  
  1298. /*****************************************************************************
  1299.   FUNCTION : ui_info_listAllSites
  1300.  
  1301.   PURPOSE  : list all predecessors of the current TARGET in the text window
  1302.   RETURNS  : alteration of the text window
  1303.   NOTES    :
  1304.  
  1305.   UPDATES  :
  1306. *****************************************************************************/
  1307.  
  1308. void ui_info_listAllSites(Widget w, int unitType, caddr_t call_data)
  1309.  
  1310. {
  1311.     int       targetNo;
  1312.     char      *name;
  1313.     char      buf[UI_MAX_TW_BUFFER_SIZE];
  1314.     Bool      siteIsActive;
  1315.  
  1316.     if (NOT ui_info_anyUnitSelected(unitType)) 
  1317.     return;
  1318.  
  1319.     if (unitType == UI_SOURCE) {
  1320.     targetNo = ui_sourceUnit.no;
  1321.     name     = ui_sourceUnit.name;
  1322.     } else {
  1323.     targetNo = ui_targetUnit.no;
  1324.     name     = ui_targetUnit.name;
  1325.     }
  1326.    
  1327.     (void) krui_setCurrentUnit(targetNo);
  1328.     
  1329.     ui_printMessage("Listing of all sites ...");
  1330.     /* ui_displayText_proc(); */
  1331.     sprintf(buf,"\n\nListing of all sites of unit %d - %s\n\n", targetNo, name);
  1332.     ui_tw_printMessage(buf);
  1333.     ui_tw_printMessage("  site name                   site function                   value\n");
  1334.     ui_tw_printMessage("---------------------------------------------------------------------------\n");
  1335.  
  1336.     siteIsActive = krui_setFirstSite();
  1337.  
  1338.     do { /* loop over all sites */ 
  1339.     if (siteIsActive) {
  1340.         sprintf(buf,"  %-24s    %-24s    %9.5f\n",
  1341.             krui_getSiteName(), krui_getSiteFuncName(), 
  1342.             krui_getSiteValue());
  1343.         ui_tw_printMessage(buf);
  1344.     }
  1345.     } while ((siteIsActive = krui_setNextSite()));
  1346.     
  1347.     ui_tw_printMessage("\n\nend of listing\n\n\n");
  1348.     ui_printMessage("");
  1349. }
  1350.  
  1351.  
  1352. /*****************************************************************************
  1353.   FUNCTION : ui_info_listAllLinksToCurrentSite
  1354.  
  1355.   PURPOSE  : list all predecessors of the current TARGET in the text window
  1356.   RETURNS  : alteration of the text window
  1357.   NOTES    :
  1358.  
  1359.   UPDATES  :
  1360. *****************************************************************************/
  1361.  
  1362. void ui_info_listAllLinksToCurrentSite(Widget w, int unitType, 
  1363.     caddr_t call_data)
  1364.  
  1365. {
  1366.     int                       srcNo;
  1367.     struct UnitAttributeType  sourceUnit;
  1368.     FlintType                 weight; 
  1369.     char      buf[UI_MAX_TW_BUFFER_SIZE];
  1370.     Bool      successful;
  1371.  
  1372.     if (NOT ui_info_anyUnitSelected(UI_TARGET))
  1373.     return;
  1374.  
  1375.     if (NOT strlen(ui_link.siteName) OR 
  1376.     (krui_setSite(ui_link.siteName) != UI_SET_OK)) {
  1377.     sprintf(buf,"Invalid site <%s>!", ui_link.siteName);
  1378.     ui_confirmOk(buf);
  1379.     return;
  1380.     }
  1381.  
  1382.     ui_printMessage("Listing of all links to current site ...");
  1383.     /* ui_displayText_proc(); */
  1384.     sprintf(buf,"\n\nListing of all links to site %s of unit %d - %s\n\n", 
  1385.         ui_link.siteName, ui_targetUnit.no, ui_targetUnit.name);
  1386.     ui_tw_printMessage(buf);
  1387.     sprintf(buf,"\nsite: %-20s  (func: %-20s)  value: %9.5f\n\n",
  1388.         krui_getSiteName(), krui_getSiteFuncName(), 
  1389.         krui_getSiteValue());
  1390.     ui_tw_printMessage(buf);
  1391.     
  1392.     ui_tw_printMessage("  weight    <- number - name                 output    activat.  bias\n");
  1393.     ui_tw_printMessage("---------------------------------------------------------------------------\n");
  1394.  
  1395.     successful = 
  1396.          ((srcNo = krui_getFirstPredUnit(&weight)) > 0);
  1397.  
  1398.     while (successful) {
  1399.     ui_info_getAllUnitData(srcNo, &sourceUnit);
  1400.     
  1401.     sprintf(buf,"  %9.5f <- %6d - %-20s %8.5f  %8.5f  %9.5f\n", 
  1402.         weight, srcNo, sourceUnit.name, sourceUnit.out, 
  1403.         sourceUnit.act, sourceUnit.bias);
  1404.     ui_tw_printMessage(buf);
  1405.     
  1406.     successful = ((srcNo = krui_getNextPredUnit(&weight)) > 0);
  1407.     } /* end while */
  1408.  
  1409.     ui_tw_printMessage("\n\nend of listing\n\n\n");
  1410.     ui_printMessage("");
  1411. }
  1412.  
  1413.  
  1414. #ifdef _UNUSED_FUNCTIONS_
  1415.  
  1416. /*****************************************************************************
  1417.   FUNCTION : ui_info_listAllLinks
  1418.  
  1419.   PURPOSE  : list all links of the network in forward and backward direction
  1420.   RETURNS  : alteration of the text window
  1421.   NOTES    : !!! function is not used yet
  1422.  
  1423.   UPDATES  :
  1424. *****************************************************************************/
  1425.  
  1426. /*!*/ /* not used */
  1427. static void ui_info_listAllLinks(void)
  1428.  
  1429. {
  1430.     int        sourceNo, targetNo;
  1431.     FlintType  weight; 
  1432.  
  1433.     char      buf[UI_MAX_TW_BUFFER_SIZE];
  1434.     Bool      successful;
  1435.  
  1436.     successful = ((sourceNo = krui_getFirstUnit()) > 0);
  1437.  
  1438.     if (NOT successful) 
  1439.     ui_printMessage("The network is empty!");
  1440.     else {
  1441.     ui_printMessage("Listing all links ...");
  1442.     /* ui_displayText_proc(); */
  1443.     ui_tw_printMessage("\n\nListing of all links of the network\n\n"); 
  1444.     ui_tw_printMessage("Listing forward\n");
  1445.     ui_tw_printMessage("format: SOURCE: TARGET1:WEIGHT1  TARGET2:WEIGHT2  ...\n\n"); 
  1446.  
  1447.     while (successful) {
  1448.  
  1449.         sprintf(buf,"%6d:",sourceNo);
  1450.         ui_tw_printMessage(buf);
  1451.  
  1452.         successful = 
  1453.         ((targetNo = krui_getFirstSuccUnit(sourceNo, &weight)) > 0);
  1454.                
  1455.         while (successful) {
  1456.         sprintf(buf, "  %d:%8.5f", targetNo, weight);
  1457.         ui_tw_printMessage(buf);
  1458.  
  1459.         successful = ((targetNo = krui_getNextSuccUnit(&weight)) > 0);
  1460.         }
  1461.         ui_tw_printMessage("\n");
  1462.         successful = ((sourceNo = krui_getNextUnit()) > 0);
  1463.     }
  1464.     ui_tw_printMessage("\n\n");
  1465.     ui_tw_printMessage("Listing backward\n");
  1466.     ui_tw_printMessage("format: TARGET: SOURCE1:WEIGHT1, SOURCE2:WEIGHT2, ...\n\n");
  1467.     successful = ((targetNo = krui_getFirstUnit()) > 0);
  1468.  
  1469.     while (successful) {
  1470.         sprintf(buf,"%6d:",targetNo);
  1471.         ui_tw_printMessage(buf); 
  1472.  
  1473.         successful = ((sourceNo = krui_getFirstPredUnit(&weight)) > 0);
  1474.         while (successful) {
  1475.         sprintf(buf, "  %d:%8.5f", sourceNo, weight);
  1476.         ui_tw_printMessage(buf);
  1477.  
  1478.         successful = ((sourceNo = krui_getNextPredUnit(&weight)) > 0);
  1479.         }
  1480.         ui_tw_printMessage("\n");
  1481.         successful = ((targetNo = krui_getNextUnit()) > 0);
  1482.     }
  1483.     ui_tw_printMessage("\nend of listing.\n\n");
  1484.     ui_printMessage("");
  1485.     } /* end else : there are unit */
  1486. }
  1487.  
  1488. #endif /* _UNUSED_FUNCTIONS_ */
  1489.  
  1490.  
  1491. /*****************************************************************************
  1492.   FUNCTION : ui_info_makeUnitInfoPanelConsistent
  1493.  
  1494.   PURPOSE  : After deleting units, the unit info panel may show data of a
  1495.              unit, which was deleted. This routine shows then data of a valid
  1496.          unit/successor.
  1497.   RETURNS  : displays values in the unit info panel.
  1498.   NOTES    : Code:
  1499.          if TARGET and SOURCE ok, but not connected or TARGET only, 
  1500.             then display first predecessor of target.
  1501.          if SOURCE only, then display first successor of SOURCE.
  1502.          if both units are invalid, then display "first" connection of
  1503.                 the network (first unit, site, link)
  1504.  
  1505.   UPDATES  :
  1506. *****************************************************************************/
  1507.  
  1508. void ui_info_makeUnitInfoPanelConsistent(void)
  1509.  
  1510. {
  1511.     if (ui_infoIsCreated) {
  1512.     Bool SourceValid = ui_info_anyUnitSelected(UI_SOURCE);
  1513.     Bool TargetValid = ui_info_anyUnitSelected(UI_TARGET);
  1514.     Bool LinkValid   = TargetValid AND 
  1515.         ui_krui_setCurrentSite(ui_targetUnit.no, ui_link.siteName);
  1516.  
  1517.     LinkValid = LinkValid AND krui_isConnected(ui_sourceUnit.no);
  1518.  
  1519.     if ((SourceValid AND TargetValid AND (NOT LinkValid)) OR
  1520.         (TargetValid AND (NOT SourceValid))) {
  1521.         ui_info_showFirstPredOfTargetUnit(NULL, NULL, NULL);
  1522.         return;
  1523.     }
  1524.     
  1525.     if (SourceValid AND (NOT TargetValid)) {
  1526.         ui_info_showFirstSuccOfSourceUnit(NULL, NULL, NULL);
  1527.         return;
  1528.     }
  1529.  
  1530.     if (LinkValid) return; /* everything is ok. */
  1531.  
  1532.     /* nothing is valid */
  1533.     ui_info_showFirstUnit();
  1534.     }
  1535. }
  1536.  
  1537.  
  1538. #ifdef _UNUSED_FUNCTIONS_
  1539.  
  1540. /*****************************************************************************
  1541.   FUNCTION : ui_info_deleteLink
  1542.  
  1543.   PURPOSE  : delete the displayed link
  1544.   RETURNS  : alteration of the network
  1545.   NOTES    : !!! function is not used yet
  1546.  
  1547.   UPDATES  :
  1548. *****************************************************************************/
  1549.  
  1550. /*!*/ /* not used */
  1551. static void ui_info_deleteLink(void)
  1552.  
  1553. {
  1554.     FlintType  weight;
  1555.  
  1556.     if (ui_info_anyUnitSelected(UI_SOURCE) AND
  1557.     ui_info_anyUnitSelected(UI_TARGET)) {
  1558.     /* ask whether both units are connected, set current link pointer */
  1559.     if (NOT ui_krui_setCurrentSite(ui_targetUnit.no, ui_link.siteName)) {
  1560.         ui_confirmOk("Invalid site!");
  1561.         return;
  1562.     }
  1563.     if (NOT krui_isConnected(ui_sourceUnit.no)) {
  1564.         ui_confirmOk("No link exist!");
  1565.         return;
  1566.     }
  1567.  
  1568.     weight = krui_getLinkWeight();
  1569.     krui_deleteLink();
  1570.     ui_net_drawLink(ui_currentDisplay, UI_GLOBAL,
  1571.             ui_sourceUnit.no, ui_targetUnit.no, 
  1572.             weight, UI_ERASE);
  1573.     ui_info_makeUnitInfoPanelConsistent();
  1574.     }
  1575. }
  1576.  
  1577. #endif /* _UNUSED_FUNTIONS_ */
  1578.  
  1579.  
  1580. #ifdef _UNUSED_FUNCTIONS_
  1581.  
  1582. /*****************************************************************************
  1583.   FUNCTION : ui_info_showNextUnit
  1584.  
  1585.   PURPOSE  : search and display the next unit found by the kernal in the
  1586.              data structure.
  1587.   RETURNS  : alteration of unit-info-panel
  1588.   NOTES    : if no unit at this position will be found, this routine will
  1589.              display dummy values. 
  1590.               !!! function is not used yet
  1591.  
  1592.   UPDATES  :
  1593. *****************************************************************************/
  1594.  
  1595. /*!*/ /* not used */
  1596. static void ui_info_showNextUnit(void)
  1597.  
  1598. {
  1599.     ui_info_makeUnitInfoPanelConsistent();
  1600.  
  1601.     if (ui_info_anyUnitSelected(UI_SOURCE)) {
  1602.  
  1603.     krui_setCurrentUnit(ui_sourceUnit.no);
  1604.     ui_sourceUnit.no = krui_getNextUnit();
  1605.  
  1606.     if ((ui_sourceUnit.no = krui_getNextUnit()) > 0) {
  1607.         krui_getUnitPosition(ui_sourceUnit.no, &ui_sourceUnit.gridPos);
  1608.         ui_info_showSelectedUnit(ui_sourceUnit.no);
  1609.     } else 
  1610.         ui_printMessage("No more units in this network !"); 
  1611.     } else 
  1612.     /* the user pressed the NEXT button, but no valid unit was displayed */
  1613.     ui_info_showFirstUnit();
  1614. }
  1615.  
  1616. #endif /* _UNUSED_FUNCTIONS_ */
  1617.  
  1618.  
  1619.  
  1620.  
  1621. /* end of file */
  1622. /* lines: 1622 */
  1623.